home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO018.dsk / MOIRE.PATTERNS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  29 lines
  1. 100  PRINT  CHR$(21): TEXT : HOME : NORMAL 
  2. 110  PRINT "THIS PROGRAM COMES FROM THE APPLE MANUALAND MODIFIED BY S. JACKSON FOR  A.C.E.S."
  3. 120  PRINT : PRINT : PRINT "IT WILL PRODUCE MANY COLORFUL PATERNS.  SIT BACK AND ENJOY."
  4. 130  PRINT : PRINT : PRINT "   (PRESS SPACE-BAR TO END THE DEMO.)"
  5. 140  FOR I = 1 TO 4000: NEXT 
  6. 150  HGR2 
  7. 160  HCOLOR= 0: HPLOT 0,0
  8. 170  CALL 62454
  9. 180 C(0) =  INT( RND(1) *8):C(1) =  INT( RND(1) *8): IF ((C(0) = 0  AND C(1) = 4)  OR (C(1) = 0  AND C(0) = 4))  THEN 180
  10. 190 A =  RND(1) *279
  11. 200 B =  RND(1) *191
  12. 210 I% = ( RND(1) *4) +2
  13. 220  FOR X = 0 TO 278  STEP I%
  14. 230  FOR S = 0 TO 1
  15. 240  HCOLOR= C(S)
  16. 250  HPLOT X +S,0 TO A,B TO 279 -X -S,191
  17. 260  IF  PEEK( -16384) >127  THEN 360
  18. 270  NEXT S,X
  19. 280  FOR Y = 0 TO 191  STEP I%
  20. 290  FOR S = 0 TO 1
  21. 300  HCOLOR= C(S)
  22. 310  HPLOT 279,Y +S TO A,B TO 0,191 -Y -S
  23. 320  IF  PEEK( -16384) >127  THEN 360
  24. 330  NEXT S,Y
  25. 340  FOR P = 1 TO 1500: NEXT P
  26. 350  GOTO 170
  27. 360  HOME : TEXT : VTAB 11: HTAB 18: PRINT "BYE!"
  28. 370  POKE  -16368,0
  29. 380  PRINT  CHR$(4)"-STARTUP"